ano Homens Mulheres
1 2015 1033 56
2 2016 4714 267
3 2017 5757 378
4 2018 5253 324
5 2019 4804 349
---
title: "Dashboard - Audiência de Custódia - Salvador/BA"
author: "William Sacramento"
output:
flexdashboard::flex_dashboard:
orientation: columns
theme: cerulean
logo: logo4.png
social: menu
source_code: embed
navbar:
- { title: "Sobre mim", href: "https://linkedin.com/in/william-sacramento-a9605a219" }
---
```{r setup, include=FALSE}
library(rbokeh)
library(flexdashboard)
library(readxl)
library(readr)
dados <- read.csv("C:/UFBa/Projeto/dbleiseca/aud_sexo_bio - sexo_bio.csv")
dados1 <- read_xlsx("C:/UFBa/Projeto/dbleiseca/raca.xlsx")
dados2 <- read_delim("audiencia_idade.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
```
# Visualização 1 {data-icon="fa-signal" data-navmenu="Análises"}
## Column {.sidebar}
Dashboard inicial para apresentar os dados referentes à Audiência de Custódia na cidade de Salvador-Bahia.
Fonte dos dados:
## Column {data-width=600}
### Sexo Biológico
```{r}
library(ggplot2)
library(babynames)
library(dplyr)
# Plot
g <- ggplot(dados, aes(x = ano))+
geom_col(aes(y=Homens), fill = 'cyan')+
geom_col(aes(y=Mulheres), fill = 'pink')+
ylab('Número de autuados')
g
```
## Column {data-width=400}
### Idade
```{r}
library(ggplot2)
library(babynames)
library(dplyr)
# Plot
g1 <- ggplot(dados2, aes(x = ano))+
geom_col(aes(y=`18-29`), fill = 'blue')+
geom_col(aes(y=`30-41`), fill = 'cyan')+
geom_col(aes(y=`42-53`), fill = 'green')+
geom_col(aes(y=maiores_60), fill = 'yellow')+
ylab('Número de autuados')
g1
```
# Visualização 1 {data-icon="fa-signal" data-navmenu="Análises"}
## Column {data-width=600}
### Perfil Racial em 2019
```{r}
library(ggplot2)
library(babynames)
library(dplyr)
# Plot
g2 <- ggplot(dados1, aes(x=raca,y=quantidade))+
geom_col(aes(fill = raca))
g2
```
# Tabela {data-icon="fa-table" data-navmenu="Análises"}
### Tabela
```{r}
dados
```